home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Games / Xconq 7.1.0 / lib / 1756.g next >
Text File  |  1996-04-04  |  4KB  |  137 lines
  1. (game-module "1756"
  2.   (title "Europe 1756")
  3.   (blurb "Central Europe, the beginning of summer, 1756.  Frederick must strike or die.")
  4.   (base-module "fred")
  5.   (instructions
  6.    "Each side should attempt to capture as many of the other's fortresses "
  7.    "as possible.  "
  8.    )
  9. )
  10.  
  11. (include "t-cent-eur")
  12.  
  13. ;;; Modify the defaults in fred.
  14.  
  15. (add u* start-with 0)
  16.  
  17. ;;; All scenarios include these sides, but only three were active in 1756.
  18.  
  19. (side 1 (name "Prussia") (adjective "Prussian") (emblem-name "arms-prussia"))
  20. (side 2 (name "Hannover") (adjective "Hannoverian") (emblem-name "arms-hannover")
  21.   (active false))
  22. (side 3 (name "Austria") (adjective "Austrian") (emblem-name "arms-austria"))
  23. (side 4 (name "Saxony") (adjective "Saxon") (emblem-name "arms-saxony"))
  24. (side 5 (name "France") (adjective "French") (emblem-name "arms-france")
  25.   (active false))
  26. (side 6 (name "Russia") (adjective "Russian") (emblem-name "arms-russia")
  27.   (active false))
  28. (side 7 (name "Sweden") (adjective "Swedish") (emblem-name "arms-sweden")
  29.   (active false))
  30. (side 8 (name "Empire") (adjective "Empire") #|(emblem-name "arms-sweden")|#
  31.   (active false))
  32.  
  33. (side 3 (trusts (3 1) (4 1)))
  34. (side 4 (trusts (3 1) (4 1)))
  35.  
  36. (set sides-max 8)
  37.  
  38. (town (n "Danzig") (@ 35 35))
  39. (town (n "Hamburg") (@ 12 32))
  40. (town (n "Emden") (@ 8 30))
  41. (town (n "Thorn") (@ 38 29))
  42. (town (n "Bremen") (@ 13 28))
  43. (town (n "Posen") (@ 36 25))
  44. (town (n "Cassel") (@ 18 19))
  45. (town (n "Leipzig") (@ 27 18))
  46. (town (n "Chemnitz") (@ 29 16))
  47. (town (n "Eger") (@ 31 12))
  48. (town (n "Wurzburg") (@ 24 11))
  49. (town (n "Donauworth") (@ 29 6))
  50. (town (n "Regensburg") (@ 32 6))
  51. (town (n "Passau") (@ 36 5))
  52. (town (n "Ulm") (@ 27 4))
  53.  
  54. (fortress 22 23 1 (n "Magdeburg"))
  55. (fortress (n "Berlin") (@ 25 26))
  56. (fortress (n "Stettin") (@ 26 30))
  57. (fortress (n "Kustrin") (@ 30 25))
  58. (fortress 36 21 1 (n "Glogau"))
  59. (fortress (n "Colberg") (@ 29 34))
  60. (fortress (n "Schweidinitz") (@ 39 17) (s 1))
  61. (fortress 40 18 1 (n "Breslau"))
  62. (fortress (n "Glatz") (@ 40 16) (s 1))
  63. (fortress (n "Brieg") (@ 42 17) (s 1))
  64. (fortress (n "Neisse") (@ 43 15) (s 1))
  65. (fortress (n "Munster") (@ 11 23))
  66. (fortress (n "Minden") (@ 14 24))
  67. (fortress (n "Hannover") (@ 17 25))
  68. (fortress (n "Stade") (@ 12 31))
  69. (fortress (n "Prague") (@ 35 12) (s 3))
  70. (fortress (n "Brunn") (@ 44 7) (s 3))
  71. (fortress (n "Olmutz") (@ 46 9) (s 3))
  72. (fortress (n "Vienna") (@ 46 3) (s 3))
  73. (fortress (n "Koniggratz") (@ 40 13) (s 3))
  74. (fortress (n "Nuremberg") (@ 28 9))
  75. (fortress (n "Torgau") (@ 28 19) (s 4))
  76. (fortress (n "Dresden") (@ 31 17) (s 4))
  77. (fortress (n "Metz") (@ 15 8))
  78. (fortress (n "Strasbourg") (@ 20 5))
  79. (fortress (n "Venlo") (@ 7 20))
  80. (fortress (n "Roermond") (@ 9 18))
  81. (fortress (n "Cologne") (@ 12 17))
  82. (fortress (n "Coblenz") (@ 15 14))
  83. (fortress (n "Dusseldorf") (@ 11 19))
  84. (fortress (n "Mainz") (@ 18 12))
  85. (fortress (n "Wesel") (@ 9 22))
  86. (fortress (n "Frankfort") (@ 20 13))
  87. (fortress (n "Konigsberg") (@ 38 38))
  88. (fortress (n "Stralsund") (@ 20 34))
  89.  
  90. (king 22 23 1 (n "Frederick"))
  91. (prince 22 23 1 (n "Ferdinand"))
  92. (general 22 23 1 (n "Keith"))
  93. (army 22 23 1 (hp 48))
  94.  
  95. (marshal 40 18 1 (n "Schwerin"))
  96. (army 40 18 1 (hp 25))
  97.  
  98. (marshal 36 18 1 (n "Brunswick"))
  99. (general 36 18 1 (n "Maurice"))
  100. (army 36 18 1 (hp 15))
  101. (depot 36 18 1)
  102.  
  103. (army 42 17 1 (hp 1))
  104. (army 43 15 1 (hp 1))
  105. (army 40 16 1 (hp 1))
  106. (army 39 17 1 (hp 1))
  107. (army 36 21 1 (hp 1))
  108.  
  109. (marshal 46 9 3 (n "Browne"))
  110. (general 46 9 3 (n "Lascy"))
  111. (army 46 9 3 (hp 50))
  112.  
  113. (marshal 39 12 3 (n "Picolomini"))
  114. (general 39 12 3 (n "Nadasy"))
  115. (army 39 12 3 (hp 25))
  116.  
  117. (marshal 35 12 3 (n "Serbeloni"))
  118. (army 35 12 3 (hp 10))
  119.  
  120. (king 31 17 4 (n "Rutkowski"))
  121. (army 31 17 4 (hp 20))
  122.  
  123. (army 28 19 4 (hp 1))
  124.  
  125. (scorekeeper
  126.   (title "VP")
  127.   (initial 0)
  128.   (do (set (sum point-value)))
  129.   )
  130.  
  131. (set initial-date "Jun 1756")
  132.  
  133. ;;; Game only lasts until the end of the year (armies would
  134. ;;; invariably go into winter quarters from December thru March).
  135.  
  136. (set last-turn 12)
  137.